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INTRODUCTION 


One of APL's unique contributions to computing languages is 
its ability to generate and manipulate Boolean arrays. Although a 
binary (or bit) datatype is available in many other languages, it 
is often clumsy to use, requiring conversion and indirect 
manipulation. APL, on the other hand, handles Boolean data 
directly and efficiently; the data is stored compactly (one value 
per bit) and processed rapidly. 


Boolean values are most often generated by one of the six 
relational functions (< < = 2 > #) or by membership (c). Five 
other functions perform logical calculations: and (A), or (Vv), 
nand (#), nor (¥), not (~). Together, these provide all the 
nontrivial functions of logical calculus. For instance, 
exclusive-or is * and logical implication is <. 


APL's real strength with Boolean values lies in its ability 
to use them with every primitive function that allows numeric 
arguments. Some functions, such as compression (/) and expansion 
(\), are designed specifically for Boolean arguments; these allow 
us to select from, and insert values into, arrays. Other 
functions for which Boolean arguments are most useful are rotate 
(%), grade up (4), grade down (¥), base value (1), and several 
scalar dyadic functions (+ - x # | ! *). The reduction and scan 
operators also gain new significance with Boolean arguments. 


One of the most powerful applications of Boolean values in 
APL is their use in partition functions. Partition functions are 
user-defined functions that apply APL primitive functions 
independently to different parts of an array. They allow the user 
to manipulate a collection of arrays as independent objects, 
similar to the way this is done in the APL*PLUS Nested Arrays 
System (see APL*PLUS Nested Arrays System Reference Manual, STSC, 
1981). 


Boolean Functions and Techniques, Second Edition, serves two 
purposes. First, it is an introduction to the utility workspace 
6 PARTFNS on STSC's APL*PLUS' System. Second, it provides the 
experienced programmer with useful reference tables and formal 
definitions using Boolean data. 


tAPL*PLUS is a service mark and trademark of STSC, Inc., 
registered in the United States Patent and Trademark Office. 
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Chapter 1 includes transcriptions of the online documentation 
for workspace 6 PARTFNS as well as a paper discussing the theory 
and use of partition functions. This chapter should be read in 
one sitting, but parts of it may also be used for reference. 


Chapter 2 is intended primarily as a reference for the 
experienced APL programmer. The charts in this chapter contain 
practical information that can be applied by the programmer as 
needed. 


Chapter 3 presents sample functions using Boolean techniques 
These are intended to give the reader some idea of the practical 
uses of Boolean techniques and spur him on to develop his own 
applications. 


The second edition of Boolean Functions and Techniques 
supersedes Working Memorandum No. 106, Boolean Functii 

i i Topi i . The editor acknowledges the 
text contributions and review comments of Bob Smith, who wrote the 
earlier version of this publication. The editor is indebted to 
Roy A. Sykes, Jr. for his technical assistance, text 
contributions, and review suggestions. In producing this 
publication, the editor gratefully acknowledges the assistance of 
Andrea G. Kenner, Deborah Richardson, and Suzanne Yanchulis. 


Notational Conventions 


The following syntax conventions are used throughout this 
publication: 


* Function and operator symbols are shown exactly as they 
appear in actual usage. 


* The symbol @ is defined as any logical or relational 
function. 


e The double-headed arrow (++) indicates that two 
expressions have the same meaning or return identical 
results. 

* ‘The symbol « is defined as any primitive function. 


* Definitions and examples are given in origin 1 unless 
otherwise noted. 
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CHAPTER 1 


PARTITION FUNCTIONS 


This chapter includes a paper by Bob Smith on the theory and 
use of partition functions and the documentation for partition 
functions and NAPsGRP from workspace 6 PARTFNS. 


Bob Smith's paper was published in the APL79 Conference 
Proceedings, Part 1 (Association for Computing Machinery, 1979). 
It is reprinted here by kind permission of the Association for 
Computing Machinery. The paper provides a concise discussion of 
the need for partition functions and also illustrates their use. 


The two items of online documentation transcribed in this 
chapter are normally accessed through the function DETAIL in 
workspace 6 PARTFNS. Together, they provide an overview of the 
capabilities available on STSC's APL*PLUS system using the utility 
functions in that workspace. Section 1.2 includes a table that 
relates each partition function to its corresponding APL 
expression, and Section 1.3 includes a chart that illustrates the 
use of NA& and PAs with Boolean functions. 


1.1 A Programming Technique for Non-Rectangular Data 


The text appearing on pages 4 through 10 was reprinted by 
permission of the Association for Computing Machinery. 
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Abstract 


A programming technique is developed to 
deal with certain common operations on non- 
rectangular (ragged) data. A representation 
Of such data in current 4PL is defined; a 
notation for applying primitive functions to 
this data is developed; and user-defined 
functions that Operations for 
certain primitis 

illustrated. 


Motivation 


of the rectangular data into distinct 
g-, the rows of a matrix). 
Primitive functions (e.g., reduction and 
Scan) then may be applied’ independently to 
ach distinct line to produce various 

Fesu. 


Occasionally, however, it becomes 
Primitive function 
pacts of a 
vector (called the t vector). 
ogous te the Lines of 
For 
Problem may be to plus-reduce cer 
of a numeric vector. 
Were 110 and if it were broken into 
Parts as follows: 


n pacts: 
Tf the argument vector 
jeveral 


123 8 $678 910 


then the desired result would be 6 4 26 19- 


Copyright © 1979 by the Association for Computing Machinery, 
Ine: Copying without fee is permitted provided that the copies are 
ot madeor distributed or direct commercial advantage and erect 
to the source ig given. Abstracting with credit ls permitted. For 
‘other copying of articles that carry acode atthe bottom of the first 
age. copying is. permitted provided. that the per-copy fee 
Indieated in the code is pais through the Copyright Clearance 
Center, P. 0. 0x 765, Schenectacy. N.Y. 12301. For permission 10 
‘republish write to: Director of Publications, Association for 
‘Computing Machinery. To copy otherwise, oFrepublish, requires a 
{ee and/or specific permission. 


© 1979—ACM 0-89791-005—2/79/0500—0362 $00.75 
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the non-rectangular data is 
represented as an argument vector along with 
a vector of the lengths vhich partition the 
argument vector (here, the implicit lengths 
are 314 2). One might think of the 
argument vector as a vector of vectors. 


Previously, this kind of problem has been 
solved by first expanding and reshaping the 
gument vector into a matrix. This tral 
formation allows the programmer to take 

imiting property of the 

ys of the matrix and apply the 
function to the entire matrix to 
Tf the argument vector 


cessive parts stored in 4, a solution is 
PI DAD SETAC AS BAT/ADE 


jethod, the argument vector~ 


As a general 
jeveral drawbacks. 


to-matrix approach has 


ont. 


Second, the expansion process may pad each 
part (on the way to creating a row of the 
Matrix) with an inappropriate value. The 
0's that expansion u: fillers for 
numeric structures won't bother */, but */ 
and 4/ won't like them. This problem can be 
circumvented; however, it's one more thing 
with which the programmer be bothered. 


‘Third, this approach can be expensive be 
cause of all the extra work involved in 
inserting fill elements via expansion. 


The following sections discuss an 
alternate approach to solving this class of 
problems. Essentially, these problems 
involve tepresenting non-rectangular data at 
a vector of vectors along with a partition, 
and applying a primitive function to each 
independent part. First, we must character~ 
ize the concept of "parts", and then combine 
that with the primitive function and the 
argument vector to produce the result. 
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Eeetteton Vectors 


A simple and unigue characterization of 
any partitioning of an argument vector is as 
2 Boolean vector of the same length (called 
2 partition vector). Each i in the parti- 
tion vector corresponds to the beginning of 
@ part and the following 0's correspond to 
the remaining elements in that part. 


‘The partition of 110 used above would be 
characterized 


ral oy 
100 4 


678 910 
ooo 30 

Tt is easy to see that this characterization 
is unigue and that every Boolean vector of 
the same length as the argument vector and 
whose first element is 1 represents 2 pacti~ 
tion of the argument vector. There are 
2e-1 such partitions of length ¥. Note 
that the number of parts represented by the 
partition vector P is +/P. 


‘The characterization as a Boolean vector 
is chosen over that of a vector of succes~ 
Sive lengths of the parts for several 
reasons. The Boolean vector often is easily 
computed from and stored with the argument 
vector (as in blanks in @ character vector}; 
has a simpler conformability test 
( PCIJACpP)=pB vs, ((+/P)=pB)AA/220 )7 often 
storage than an integer vector; 
ines more naturally with the 
r=defined functions illustrated later. 


Although a © 
lengths vould slow zero lengths, the 
no real added capability. ‘The zero lengths 
Rave no effect in conjunction with shai 
Preserving functions like scanvand grave. 
Por reduction, presumably one fills in the 
result with the appropriate identity 
Clement I preter to leave that job to the 
expansion function. 


‘The Partition Operator 


We now need to combine the partition 
ctor, the primitive function, and the 
Argument vector. One method of doing thi: 
is to combine the partition vector and the 
primitive function into a derived function 
via an operator. This operator (called the 
ietition operator) is then dyadic, with a 
Bartition vector on the left and a primitive 
function on the right. ‘The result is a 
derived function (a partition function) 
which has the same valence as the original 
primitive function. That is, the resulting 
function is dyadic if the original primitive 
function is dyadic: monadic otherwise. 


For simplicity, a new symbol is used for 
this operator. it is not the goal of this 
Paper to suggest that this operator or 
symbol be implemented; it is introduced only 
as notation to simplify the presentation. 
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DaGiatt ont) partition: cperstetcin 


(which Jim Ryan calls the 
“dagger” symbol) 


Let a be any primitive monadic function, 
and P and 8 any vectors of equal length 
where P is a Boolean vector whose first 
element is 1. 


Re Pio 


is the result of applying a to each part of 
2, where P defines the partition. Specifi- 
cally, 


Be10 
I-0 
Lare((+/P)<I0T01)/0 
RoR, a (I=*\P)/B 
ti 


‘The shape of # depends upon a. Ifa isa 
reduction function, the shape is +/P (one 
walue per part since reduction reduc 
vectors to scalars); if 2 shape 
Preserving function, the shape is oP (e.g., 
Scan preserves shape). If « is defined for 
bigher-dimensional arrays, then so is Pta, 
and in the same way. Notationally, this 
would be written as P+(a(x]) B. For 
example, P+(+\[21) 


If @ is a dyadic function, the syntax of 
the partition operator is 


BoA (Pte) 8 
and the result is calculated as 


Re10 
ro 

Uare((4/P) <er91)/0 

RoR, ((T=4\P)/A) a (189\2)/8 
on 


See Iverson [1} for a discussion of 
operators which ta) argunents. 


‘The above example of a partitioned plus 
reduction of 110 would be written. 


1001100010 #4/) 110 
64 26 18 


or as a function of 4 and 2 with Beii0 and 


4-31.42 (the partition lengths) a 


(Os7AEdeeN71HO,AIHC) B 
626 19 


Applications 


I. In accounting applications, one 
encounters the problem of accumulating 

amounts of money into bins. For example, 
ANZ might be a vector of amounts, and ACcr 
ight be a vector of corresponding account 
codes. Potentially, there are anounts in 
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47 to be charged to the same account coder 
thus acc? contains duplicate values. For 
each distinct account code, how much is to 
be charged to it? 


A solution is first to reorder acer (and 
in the same way reorder 4N7) such that equal 
account codes are adjacent. 


onpesacer 
ANT=AMTLORD 
‘acor~acenlonDy 


xt, create a partition vector of equal 
account codes, 


Pyeacet*”19ACcT 
Pvtiiet « 


For example, 
ANT ++ 9.33 “6.20 9,12 “H.50 6.41 7.99 


acer s+ "83 83) 83 ior ton 201 
PEs 10 0 ak Se 


At this point, PY selects the distinct 
account codes. 


Py/acer 
#3 101 20% 


Finally, apply a partitioned plus. 
reduction’ to ANT using PY to obtain the 
amounts to charge to each distinct account 
code 


PYEC#/) ANE 
6.09 1.91 7,93 


II. A tape contains several records, each 
of which begins with a record mark. 

Individual records may contain errors that 
invalidate the remaining information in that 
record, but not other records. Which rec= 
ords contain errors? 


If the Bool 

beginning of 

vector SRR selects the errors, then a 

Selection vector on the indices of the rec~ 
that contain errors is 


SRW) BRR 


‘To return a Boolean vector that selects 
leading error-free information in each rec~ 
ord, us 


BeRNHCA\) ~ERR 


mm s+ 1001101000 
BRR ++ 0011000010 
Bo 1100111100 
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Problem Isolation 


One advantage of partition functions is 
their ability to be used to extend isolated 
solutions to more general solutions. That 
is, when working with non-rectangular data 
represented as a vector of vectors, often 
‘one can solve the problem at hand on an 
Ysolated part, and then substitute in the 
propriate partition functions to obtain a 
Solution on the entire partitioned vector. 


For example, say one has a character 
vector (rx?) partitioned by new-line charac- 
ters (carrier returns); thus, the first 
character is a new-line character. Each 
pact is the character image of a line of 
Some user-defined function. The problem is 
to select text in comments and in character 

fants. Assume new-line characters are 
Rot allowed in character constants, but that 
Comments are allowed at the end of a line 
with an executable statement. 


Let's solve this problem for a single part 
of the character vector, say, PART. 


delimited 
by quotes, text within a character constant 
has to its left an odd number of quotes. 
Characters preceded by an odd nunber of 
quotes can be selected by #\ as in 


Ase\PARTS NH 


Comment delimiters are then simply lamp 
symbols outside of character constants, that 
is 


ASPARTS' HY + 
‘The text in comments is then the charac~ 
ters to the right of a comment delimiter, 
that is 
VA\ARPARTE' AY 


Finally, text in comments and character 
constants is selected by 


Avz\PaRrettt 
COsAVW\ACPARTAN AS 


To generalize this solution on a single 
part to a solution on the entire vector 
Without looping is a matter of substiti 
in the appropriate partition functions 


PerxT=cn 
AePRCA\) maar ty 
CQFAVPH(V\) ACTxi 


Relationship with General Arrays 


Broadly speaking, general arrays are a 
proposed extension to APL to handle non~ 
Fectangular data (see, for example, Gull and 
Senking (2)). As one would expect, general 
arrays handle more naturally the problems 
which partition functions address. 


Specifically, a vector of vectors is 
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general arrays rather ths 
argurent and partition 
words, the partition is 
structure 


‘The correspondence b 
functions and general ar: 
a handful of functions 
array: 


vectors from a) 
partition vectors: 
2 function to ap 
function. indepe: 

of the vector of. 

@ function to rejo3 
Parts of a vector o 
Simple vector. 


(2) as the dyadic 
which takes a partition vec 
and an argument vector on the 
result is 
approach i: 


approac! 


although general arrays 
Provide a more general solution to the 
Problems addressed by partition functions 
Until they are available on your APL syst 
use simulations of partition functions. 


Er schni 


‘This section describes user-defined 
functions which simulate monadic partition 
functions. The limitation to monadic 
Partition functions is made only to simplify 
the function's syntax: only two data 
argunents are required (the partition and 
argument vectors). 


‘The set of monadic primitives of interest 
as partition functions are the thirteen 
primitive scalar monadic functions, re 
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, scan, grade up, grade down, and 
For the thirteen primitive scalar 


elements, the partitioning has no 


of eight of the twenty-one 
‘scalar dyadic functions in both 
“reduction form are listed in 
A. Partition functions which 
fade up, grade down, and reversal 
juded. Each function listed in 
‘non=looping and works on 
S only? All work in either 
‘Pt and P+ return results 
‘the origin. 


simulating these functions 
jare with the func~ 
(3). ‘The function is 


the’ teeneiey 
For exanpl 


its to the left 
‘the hole (this 
fted vector with 


certain scans, as is #8. For 
"NS and #\ are left and eight 
of each oth Ma and =\; 


ndix B for specific exampl 


(1) has proposed a more genera: 
dyadic scan. In particular, 
vat wav oe “2 a\y 

tat PAV ve 972 a) Ov 

= “paltey 


‘The techniques used in simulating the par— 
tition functions are interesting enough to 
warrant stepping through sone examples. 
Note that for a partition vector P, the 1's 
in P are the starting points of each parti- 
tion, while the i's in 16P are the corre- 
sponding endpoints. 
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Te PRC+\) Boe +\BOP\IH! ma P/*\7140,8 


Let 
Pe 10 0 100 0 
a 1203 56 7 48 

A. \71H0,8 0 1 3 10 45 21 28 

2. P/ ° 10 

Pe a) 4 

roar al 00 0 yo 0 0 

5. Be a 29h 19 Ls eT: 8 

Sues 136 5 11 18 26 


Steps 1 and 2 compute, for each partition of 
B, the cumulative sum of all the previous 
Partitions. Step 3 isolates, for each par~ 
tition, the contributions of the inmedi: 
Preceding partition. Step 4 puts the r 
Of Step 3 into the positions of the 
beginning of each partition, 

subtracts this fron 3. 
point is similar to g, but with the initial 
value in each partition short by the sum re- 
Guction of the immediately preceding parti- 
tion. After step 6 is executed, each parti- 
tion has the bias from any previous parti- 
tion accounted for correctly. 


PH2\) B falls out of PH(+\) B 
Boolean vector By #\B ++ 


21PH+\) 
21+\B-P\ 
Ia-P\ "= 


Ha B/*\7140, 
Wa P/+\71405 
Wa B/+\7140, 
+ ya B/\7140,8 
A\BEP\ "a" Wa 21P/0\7160,8 
B\BEP\"#! M4 B/214\7140,8 
A\BEP\"#! WA P/A\"140,8 


‘The simulation for P#(=\) B is derived 
using the identity =\p <+ ~#\~5 


Th. PHCO/) Bowe t= WAC 10PI/4\8 
‘This code finds the cumulative sum at th 
points of tition and differenc 
jacent pairs of values to obtain the re~ 
fault. Appendix A contains another function 
{zesienp} "to simutate Pt +/). b that require 

Workspace storage than the above method 
when Dales is e'scolean vector. 


‘The simulation for PH(#/) B is derived in 
the same way as Pt(#\) B was derived. 


TIT. PH V\) Bose x\(PvB)\t#* WAC PvB)/3 


Let 
Pe 100 1 1000 10 
ry 10 0 1001 00 

1. Pye 410 1 1001 10 

Qeevay/a 03 048 

SPMATAM SONI Beeb 4 

4) (v\ 040 1 1000 10 

slay O11 0 t424 00 


Step 1 points out that the important 
information in P and B is where either of 
them is 1. Where both of them are 0, the 
value in the corresponding position in the 
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result equals the value in the immediately 
Preceding position in the result. The 
leading i's in each set of consecutive 1": 
in Step 2 indicate a 1 in 2 where the pre: 
ceding elements in that same partition of 2 
were all 0. This position in 8 represents a 
point at which we wish to begin smearing 1's 
fo at least the end of that partition. The 
actual point at which ve should stop 
Smearing 1's is where the initial element in 
some partition of B is 0. These stopping 
points are exactly the points in 8 corre= 
sponding to the 0's in Step 2. 


Step 3 results in a 1 at both the start 
and stop points of each smear of 1's. Step 

these values back into place relative 
‘and Step 5 performs the smear. 


‘The relationships between the various 
eps in this solution are interesting. 
Steps 2 and % are a compression and ex- 
Pansion using the same left argument. Steps 
band § are inverses of each other. 


‘The simulation for Pt(A\) B is derived 
using the identity \B += ~v\~B . 


Similarly, the simulation for Pt(</) B is 
derived using PH </) B+ PH(A/) BR1OP . 


ds to perform a par~ 
reduction on each reversed 
yning, to reverse the scan 
‘The problem might be, given a 
character vector partitioned by new-line 
characters, to delete trailing blanks in 
ach partition. One would like to or-scan 
each partition of TXr2' ', except from the 
right rather than the left. This can be ac~ 
complished by reversing, or-scanning, and 
again reversing each partition. That is, 


PverxrscR (a 


juming TX7 begins with 
w-line character) 


Ixre(PYeo PVECY\) PYe TETe! 1)/ExT 


There is a simpler vay, still using pacti~ 
tion functions, that does not require evo 
partitioned ceveraais. Notice that since 
Sach partition is treated independently from 
every other partition, one could reverse the 
entire vector rather than each partition, 
then scan or reduce (using a different. par~ 
tition vector), and, ‘finally, reverse the 
entire result Cather than each partitions 
This translates into 


oCo10er) 48 OV 


where a is either a scan or reduction 
function. Further, in terms of the 
functions in Appendix A, one can move this 
code inline and, in most cases, eliminate 
all occurrences of reversal by applying the 
appropriate identities. For example, 
compar ing 
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. 


Ris P4(y\) 9B with 
RIB 1OPIHCV\) OB 


Bi s+ =\(PvB)\"2" wacPya)/B 
RQ > G2\((16P) ¥OB)\ tet wal (O20P) VOB) /OB 


9z\ (0BvI92)\. (QBv16P) /02 
z\(OBviG2)\ 12" NA (BVIGP)/2 
92\ (@2viG2)\O"2" Pe (BYIGE)/B 


O=\0(BvIG2)\ "2" PA (BYIG)/B 


Pinally, @#\@y ++ (71#Z)27340,2 with 
ze2\¥. 


Similar substitutions can be made for the 
other functions. 
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APPENDIX A 


The user-defined functions listed in this 
appendix simulate the partition operator in 
combination with various primitive 
functions. In particular, where p and 2 are 
Boolean vectors and y is 4 numeric vector, 
the correspondence is as follows: 


PH(A/) B+ P PANDRED B PHI) ¥ s* P PMAXRED V 
PHA\) B= P PANDSCAN 2 PHN) Vose P Bwaxscan 7 
PHV/) Bos+ BP BORRED B PHL/) Yo eB BwruRED 7 
PHA) Bo s+ P Borscay 8 PHILA) Vo s+ P BNINSCAN 7 
a s+ P PEQRED B PHY = == P PORADEUP V 
Boss P Beoscan 2 PAY V0 we P BGRADEDOWN V 
PH(2/) Bov+ P BUERED B PH4+/) Vo =P BPLRED V 
PH2\) Bo +P BYESCAN B PHG\) Vo s+ P BPLscay y 
PHa/) B => P BPLREDE B 
PH(</) Bo s+ P PLIRED B 
PHE\) Boo P BLTSCAN B PHY 0 ++ P BREVERSE V 
Z=P PANDRED ¥ ¥ Z=P PANDSCAN V 
Z=(VEP)/P 0 De(Z/102)A2/¥ Ca) Zea \(vse)\ 424 wan(vsP)/7 
’ 
Z+P PORRED ¥ ¥ Ze? PoRscAN Y 
Z+(VVP)/P 0 Z9(2/102)5P/7 Cad | Zee\TE)\t et wacyyey/Y 
xP PEORED V 9 Zep PEQscAN Vv - 
ets? Ha(16P) [ad Zee\VeP\t et mamB/=\7142,7 
’ 
ZeP PNBRED V 9 Zep BNESCAN 7 ta 
ete? WaCaP)/2\7 [a] | Zee\PaP\'= Wa P/x\"180,7 
’ 
ZeP_PUTRED V Zep PLrscan y 
e(PRV=16P)/P [a] | Ze(VAP)V(YP)\ >" WaCYYE/T 
=(2/292)02/ ¥=20P y 
Z*P_BNAXRED ¥ Zep EMAKscaN 


BeVECH)CP/AC+\P)CWVIII zoACAV)CAC+\P)CAVII 


ize) 
(2) gev02ir\z) 


ZeP_PNINRED V Yo 2+P PNINSCAB Y 
BevCCAV) (P/M +\P)CAVIII C1] ZeACRICA C+) 
(21 zev(ait\z) 


+P PORADEUP ¥ ¥ Zep PoRADEDOWN 
zeDrO+(AV)CAC+\P)CAVII-I\PxvpP C1] ZoLIrO+CWV)CAC+\PIEWVII-I\Px LP 


eP BPLRED V ¥ ZsP PPLSCAN Y ‘ 
Det? MaC26P)/\7 CA] dee \P-B\t=t a P/+\7340,7 


2P BPLREDB V 
Ze( (VP) /2) 91 1 2+P PREVERSE V 
zat 


"wa" 2/1p2)-~P/V Ca) ZvCS¥s\23 
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1.2 Using Partition Functions 


Partition functicns are user-defined functions that apply 
certain APL primitive functions independently to each partition of 
an array. They are used to manipulate a collection of arrays as 
independent objects, though the collection is stored in a single 
array. 


A vector (a row of an array) can be viewed as a collection of 
smaller vectors called partitions. For example, 110 can be 
partitioned into smaller vectors as follows: 


1.2 BipedignSuG bi. 9 10 


This partitioning can be represented by a Boolean vector of 
the same length with a 1 marking the beginning of each partition: 
1050) paemeedl 100 (partition vector) 
AeoBir le (025! 
The partition function for plus reduction (PPLRED) performs +/ on 
each part of the vector. 


1001100010 PPLRED123456789 10 
6 4 26 19 


By definition, the first element of a partition vector is 1. 


1.2.1 An Example 


A paragraph of text can be represented as a character vector 
(Vv) with new-line characters ((7cwL) separating the lines of the 
paragraph. A partitioning of this vector into its separate 
Paragraph lines is 


Pe7141,V=[TCNL 


We would like to count the number of blanks in each line of 
the paragraph by applying the function +/ to each partition of 
'. This can be accomplished by using PPLRED, the partition 
function corresponding to +/, as in 


P PPLRED v=! ' 


To count the number of leading blanks in each line of the 
paragraph, apply +/*\ to each partition of v3 


P PPLRED P PANDSCAN V=' ' 
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1.2.2 Conventions 
* The name of each partition function begins with the letter 2. ‘ 


* Each partition function is dyadic with the partition vector on 
the left and the argument array on the right. 


° The result of each partition function is the result of applying 
the primitive function (as specified in the name of the 
partition function) independently to each partition of the 
right argument. 


* Each partition function extends scalar or one-element vector 
right arguments to the length of the left argument (for 
example, to compute the lengths of the partitions in P, use 
P PPLRED 1). 


* Each partition function requires the left argument to be a 
Boolean scalar or one-element vector, or a Boolean vector with 
“i1tpB elements (where B is the right argument). A scalar or 
one-element vector left argument is extended to a vector with 
“1tpB elements. The first element of the left argument must be 
1. 


e ach partition function partitions the last coordinate of an 
arbitrary rank right argument. To apply the partition to 
another coordinate, transpose the right argument and result as 
appropriate. In particular, to apply any partition function 
PFN to the Kth coordinate of 4, use 


(AK=.ppA)@P PFN (MAK=1ppA)OA 


e ach partition function checks both arguments for errors; if an 
error is found, it is signalled to the calling environment. 


e In all partition functions, DELX is localized to signal errors 
to the calling environment as in 


OELX+*QERROR(«\(0DM#()TCWL ) /DDM* 


° ‘The results of the following functions are sensitive to the 
setting of [cr: 


BDRANKUP PHRANKUP PLRANKUP 
PDRANKDOWN © PHRANKDOWN = BLRANKDOWN 


In all other functions, [¢7T is localized and set to 0. 
° In the following functions, [70 is localized and set to 0: 


PROTATE1 PSORTUP PLJUST  PPLREDB—- PREVERSE 
PROTATEN1 PSORTDOWN = PRIUST 


All other functions are either origin free or origin sensitive. 
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° The results of all partition functions with index, grade, or 
rank in their names are sensitive to the setting of [J0. 


& * he following functions work on both numeric and character 
arrays: 
PSHIFT1 PROTATE1 PLJUST PREVERSE 


PSHIFTN1  PROTATEN1 = PRJUST 


All other functions work on numeric arrays only. 


1.2.3 Errors 

RANK ERROR The left argument is not a scalar or vector 

LENGTH ERROR The length of the left argument is not equal 
to the length of the last coordinate of the 
right argument. 

DOMAIN ERROR The left argument is not Boolean-valued, the 


first element of the left argument is not 1, 
or the value of the right argument is not 
suitable for the corresponding primitive 
function (e.g., PPLRED on a character array or 
PANDRED on a non-Boolean array). 


r ) 1.2.4 Table of Corresponding Names 


Table 1.1 lists the partition functions in workspace 
6 PARTFNS and the corresponding APL expressions that are 
independently applied to each partition of the argument array 4. 


In particular, given P as the partition vector and A as the 
array right argument, let 7P be the Ith partition of 4: 


IP+(I=4#\P)/A (in origin 1) 

The result of each partition function is the catenation of 
the expression to the right of each partition function for each 
partition of 4. If IP is a matrix or higher-dimensional array, 


consider the expressions below to illustrate what happens to each 
row of IP. 


9 
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a 1.1 -- Partition Functions and Corresponding APL Expressions 
Funct ion APL Expression Function APL Expression t 
PLTRED </IP PLTSCAN <\IP 
PLERED </IP PLESCAR <\ip 
PEQRED PEQSCAN =\IP 
POERED POESCAR 2\IP 
PGTRED PGTSCAN >\IP 
PHERED PRESCAR #\IP 
PORRED PORSCAN v\IP 
PANDRED PANDSCAR A\IP 
PHORRED PRORSCAN IP 
PHANDRED PNANDSCAR *\IP 
PPLRED PPLSCAR “IP 
PPLREDB (See 1) 

PMINUSRED PMIRUSSCAR = -\IP 

PPRRED PPRSCAR *\IP 

PMIWRED PMINSCAR ue 

PMAERED PMAXSCAN rp 

= rant, CUA” t 
PSHIETHL “10,1 or 18° "IP PSHIETY 161.0 or 141," * 
PROTATEN1 ~191P ‘PROT ATEL 19I1P 

PREVERSE orp 

PINDEXUP (See 2 and 3) PINDEXDOWN (See 2 and 3) 

PSORTUP IP(arPy PSORTDOWN IP(VIP] 

PGRADEUP AIP (See 3) PGRADEDOWH UP (See 3) 

PRANKUP AAIP (See 3 and 4) PRANKDOWN ATIP (See 3 and 4) 
PDRANKUP 1 NDRANER IP (See 3 and %) PDRANKDOWN “1 NDRANKR IP (See 3 and 4) 
PLRANKUP 1 HLRAYAR IP (See 3 and 4) PLRANKDOWH © ~1-‘WLRARKR IP (Seo 3 and 4) 
PHRANKUP 1 FHRAWER IP (See 3 and 4) PERANKDOWH = ~1 NBRANKR IP (See 3 and 4) 
PARANKUP 1 NARANER IP (See 3 and 4) PARANKDOWN “1 WARANKR IP (See 3 and 4) 
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Notes for Table 1.1 
; (1) For Boolean values only; uses less work area than BPLRED. 


(2) PINDEXUP and PINDEXDOWN independently grade each partition of 
a numeric array, and return a permutation array that would 
sort each partition in the composite array. For partition 
vector P and numeric array 4, 


(,4) LP BINDEXUP A] +> P PSORTUP A 
(,4)LP BINDEXDOWN A] ++ P PSORTDOWN A 


(3) Results of these functions are sensitive to the setting of 
aro. 


(4) The rank functions listed above correspond to the functions of 
similar name from workspace 6 SORT. 


1.3 Shift and Compare Functions W4 and Pa 


The group NAPAGRP consists of the two shift and compare 
functions Wa (negative shift) and Pa (positive shift): 


tx NAV + Ve “14 (#/10) , Vv 
Ae) A 2 i ee SI) 2 =/10 


The left argument is a character scalar or vector 
r representing any primitive scalar dyadic function with a right- 
hand identity element (i.e., one of Av>2=2#+-x#*f Ll). 
The right argument is a numeric vector. 


The following are executable copies of Wa and PA. 
VZeA NAB _ 
C1] ZeeeBe ast 140", A, 4710) ,B" 


v Z+A PA B 


C1] V Z+2'B',A,'14B,',A,'/10! 


Na shifts vector ¥ one position to the right; it drops the 
last element of ¥ and catenates the identity element of < to the 
beginning to preserve the length. This shifted vector is then 
compared to ¥ using the function denoted as «. 


Pa shifts vector V one position to the left; it drops the 
first element of ¥ and catenates the identity element of = to the 
end to preserve the length. This shifted vector is then compared 
to V using the function denoted as «. 
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1.3.1 Identities 


For B a Boolean vector and V a numeric vector, 


(1) ee 
Bo 
vos 

(2) ter wa 
Fae R SW 

(3) te" Wa B 
Fa Pa B 


where « and w may 


1.3.2 Examples 


NAB +> 


ote" PA 
ote" WA 


~tat Nb 
~'at Ph 


'e' Ne #\B 
t=! NA =\B 
t-) Na +\0 


be selected from the following table: 


Listed below are examples of Nas and Pa using Boolean 


functions. 


SEPT. THE FIRST 11M, AND THE FIRST 
EACH SERIES OF 1"S; ALL'ELSE 0. 


1 
0 
SET TO 0 THE FIRST O IN, AND TM 
EACH SERIES OF O'S: ALL'ELSE 1, 
B=00111100111000 
tm B=OLOLLAOLOLL01L 


SET TO 1 
ALL ELSE 


r] 
8 


SE 10.0 
ML ELSE 


Ser 10.0 
AML ELSE 


IN EACH SERIES OF 


10 
00 


TW EACH SERIES OF 


100111000 


‘SET TO 1 THE FIRST 0 BEFORE, AND THE LAST 1 IW, 
FAGH SERIES OF 1"S; ALL ELSE 0. 


Oo11110011100 
1 1 


SET TO 0 THE FIRST 0 BEFORE, AND THE LAST 0 I", 
EACH SERIES OF O'S; ALL ELSE 1. 


=ooL11i00111000101 
Ped =00000100001000101 
SET 10 0 THE LAST 0 IW EACH SERIES OF 0° 


ALL ELSE 1. 


Oo111100111000101 


SET 100 THE FIRST 1 BEFORE EACH SERIES OF 0° 
‘ALL ELSE AS BEFORE. 
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CHAPTER 2 


REFERENCE TABLES 


This chapter contains practical tools that the programmer 
should find useful in his daily work. Included are truth tables, 
equivalence tables, identities, and algorithms involving Boolean 


values, 
2.1 Compositi Relational tions 
SayNOn t SaleOe I 210. 2 _106at >10 1 
olo 2. Ook eae olio ol1 0 0100 
110 0 = eae 10) i Ucdiegt Lio [ Ls “0 
loi vio 43 salou ¥_jusOmet mr ai[e00 
c olou. olo4 o1o0o0 o11 0 oO) Lt 
1°) Tao lolitas Saltows 110 0 111.0 
2.2 Equivalences of Non-Boolean Functions on Boolean Data 
AXB +> AAB 
ALB <> AAB 
ATB > AVB 
AxB ++ A2B 
AIB <> AcB 
AIB ++ ASB 
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eer 


Til 


Simplifications for 


223 


(-A)e-B ~AB 


(AaB 


AmB 


AB 


mm mmm mm Aa 
MV KANNC>Er 


mmm mm AH 


5 6 6 8 
Pen rENV VINA 
See eee 


a 6 6 
NAWV VIN RE DK 
SRK SE RK eS 


2 69 2 £9 
IVivuere> 
RARER EK S 


66 6 6 
<> Kern VIVA 
SRRER ETEK S 


6 6 6 
Pew > cH AA! 
SERENE TES 


REE mM 
VVIUNAN > ERE 
SRR ERE ER ES 


lent: 


iva, 


Monadic 


2.4 


<Aca 


= 
nttaso 


tiittg 


SESS 
NAM> Ede 


ttt 


+ A 


~ x 
Toxsota 


tetas 


SUSSTES 
NAW> KE 
2000000 


2nd Ed. 


Boolean Functions, 


-18- 
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| 2.5  Equivalences for 4@4@5 in the Form of 4A@B 


r Fe. 


<> A<B ABASB <> AVB 
A<ASB ++ ~4 AtASB <> ARB 
. A<A=B <> AMB AtA=B +> ~B- 
A<AzB <> A¥B AtA2B <> AMB 
ASA>B <> 0 AtA>B +> AAB 
A<AtB <> ACB AtAtB <> B 
ASAVB <> A<B ASANB ©> ACB 
ASAAB <> 0 APANB <> ADB 
A<A¥B +> A¥B AZAMB +> A2B 
ASARB +> ~A AtARB +> ASB 
ASA<B +> ~A AVA<B <> AVB 
ASASB +> ASB AVASB +> 1 
ASA=B <> ASB AVA=B +> AZB 
ASA2B +> 1 AVA2B +> AZB 
ASA>B <> AnB AVA>B +> A 
ASAZB +> AWB AVAZB +> AVB 
ASAVB +> 1 AVANB +> ANB 
ASAMB <> ASB AVANB +> A 
| ASAMB «+ ~A AVAMB +> A2B 
ASAmB <> AWB AVARB +> 1 
! AZA<B <> AMB ANA<B +> 0. 
+> ANB ANASB +> ANB 
+B AMA=B +> AAB 
++ AVE ANAZB +> A 
+> ARB ANADB +> ADB 
> ~B ANAZB +> A>B 
) +> ARB AMAVB +> A 
+> ASB ANAAB +> AAB 
+> ACB ANAMB +> 0. 
+> ADB ANARB +> A>B 
+> ARB AMA<B ++ AMB 
7 A AMASB +> 0 
> AVE AMA=B +> ASB 
| +> AVE AMAZB +> ACB 
| 1 AMA>B +> ~A 
++ AzB AMAZB +> AMB 
+> A2B AMAVB +> AMB 
- 1 AMAAB «> ~A 
++ AVB AYAMB +> ASB 
A AMARB <> 0 
. A AwACB > 1 
++ ADB AWASB +> ARB 
+> ADB AwA=B <> AWB 
7 0 AnADB ++ ~A 
<> AAB AwA>B <> ASB 
++ AAB AwAtB <> ASB 
0 ARAVB ++ ~A 
<> ADB ANAMB <> AwB 
4 ARAMB <> 1 
+> ANB AwAwB <> ASB 


. 
| 
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2.6 Distributive Identities for Boolean Function: 


(A<B)<A<C 
(A<B)SA<C 
(A<B)=A<C 
(AsB)2A<C 
(A<B)>A<C 
(A<B)#A<C 
(A<B)VA<C 
(A<B)AASC 
(ASB) ASC 
(ASB) WACO 
(ASB)<ASC 
(AsB)SASC 
(ASB)=ASC 
(ASB)2ASC 
(ASB)>ASC 
(ASB) #ASC 
(ASB)VASC 
(ASB)AASC 
(ASB)ASC 
(ASB) WASC 
(A=B)< 
(AzB)S, 
(AB) 
(A=B)z 
(A=B)>. 
(A=B)#A=C 
(A=B)Y, 
(ASB) A. 
(A=B)™, 
(A=B)n 
(AzB)<A2C 
(AzB)sA2C 
(AzB)=A2C 
(AB )2A20 
(AzB)>A2C 
(AzB)#A20 
(AzB)VAzC 
(A2B)AAzC 
(A2B)A2C 
(AB) wAzC 
(A>B)<A>C 
(A>B)SA>C 
(A>B)=A>C 
(A>B)2A>C 
(A>B)>A>C 
(A>B)#A>C 
(A>B)VA>C 
(A>B)AArC 
(A>B)¥A>C 
(A>B)wA>C 
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A<B<C 
AzB>C 
A2BEC 
AzB<C 
A<B>C 
A<BeC 
A<BYC 
A<BAC 
AzBVC 
AZBAC 
A>B2C 
ASBSC 
ASB=C 
ASB2C 
A>BSC 
A>BEC 
ASBYC 
ASBAC 
A>BYC 
A>BAC 


AMB2C 
AVBSC 
AVB=C 
AVB2C 
AMBSC 
AMB=C 
ABYC 
A¥BRC 
AVBNC 
AVBRC 
AAB<C 
AnB>C 
AWBEC 
AWB<C 
AAB>C 
AABEC 
AWBMC 
A®BRC 
AABYC 
ANBAC 


No Identity 
No Identity 


B=C 


No Identity 
No Identity 


BEC 


No Identity 
No Identity 
No Identity 
No Identity 
A<B>C «+ AMBSC 


AzB<C 
AzBEC 
AzB>C 
A<B<C 
A<BEC 
AzBAC 
AzBYC 
A<BAC 
A<BYC 
A>BSC 
ASB2C 
ASB=C 
ASBSC 
A>BeC 
A>B=C 
A>BAC 
A>BYC 
ASBAC 
ASBYC 


AVB2C 
AVB=C 
AVBSC 
AMB2C 
AMB=C 
AVBeC 
AVBYC 
AMBRC 
AMBNC 
AAB>C 
AWB<C 
AnBEC 
AnB>C 
ANB<C 
AABEC 
AABRC 
ANBYC 
ARBRC 
ARBMC 


(A#B)<A#C ++ No Identity 
(A#B)sA#0 <> No Identity 
(AB) =A#0 «> B=C 
(A#B)24#0 <> No Identity 
(A#B)>A#C ++ No Identity 
(AaB )#A8C +> BAC 
(A#B)VA#C ++ No Identity 
(A#B)sa#C ++ No Identity 
(A#B)¥A#C ++ No Identity 
(AB) wA#C ++ No Identity 
(AVB)<AVC ++ A<B<C ++ AMBEC 
(AVB)SAVC +9 A2B>C +> AVBSC 
(AVB)=AVC ++ A2B#C ++ AVB=C 
(AVB)2AVC ++ A2B<C ++ AVB2C 
(AVB)>AVC ++ ASB>C ++ AMBSC 
(AVB)#AVC +> ASB#C +> AMB=C 
(AVB)VAVC #+ A2BNC ++ AVBYC 
(AVB)AAVC #> A2BAC ++ AVBAC 
(AVB)MAVC > A<BYC +> AMBYC 
(CAVB) WANG <> A<BAC ++ AMBAC 
(AMB)<AAC #% A>B2C +> AAB<C 
(ANB) SAAC 4% ASBSC +> AWB>C 
(ANB)=AAC #> ASB=C +> AWBEC 
(ANB )2AAC #4 ASB2C ++ AWB<C 
(AAB)>AAC ++ A>BSC +> AAB>C 
(AMB)#AAC #% A>B=C +> ANBEC 
(AAB)VAAG ++ A>BYC +> ABYC 
CARB) AAMC ++ A>BRC «> AABAC 
(CAMB )MAAC +> ASBMC ++ ANBYC 
(ADB) RANG ++ ASBRC +> ANBAC 
(AMB)<AMC ++ A<B>C «+ AMBSC 
(AMB)SAMC ++ A2B<C ++ AVB2C 
(AMB)=AMC ++ A2B#C +> AVB=C 
(AMB)2AMC ++ A2B>C ++ AVBSC 
(AMB)>AMC #4 A<B<C ++ AMB2C 
(AMB)#AMC ++ A<B#C <+ AMB=C 
(AMB)VAMC ++ AcBAC ++ AMBAC 
(AMB) AAMC ++ A<B¥C ++ A¥BYC 
(AMB)MAMG +9 A2BRC +> AVBAC 
(AMB)WAMC ++ AZB¥C ++ AVBVC 
(ARB)<ANC ++ A>BSC ++ ANB>C 
(ARB) SARC ++ ASB2C ++ ANB<C 
(ARB) =ARC +9 ASB=C +> ABC 
(AnB)2ANC +> ASBSC ++ ANB>C 
(AnB)>ARC +> A>B2C +> AAB<C 
(AmB) #ARC <> A>B=C +> AABEC 
(ARB)VARC +> ASBRC +> ANBAC 
(ARB) AARC +> ASBYC +> AWBYC 
(ARB )¥ARC <> A>BRC <> AABAC 
(ARB) SARC <> A>BYC +> ANBYC 
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2.7 Inverse Distributive 


identities for Boolean Function: 


AcB<o 
AzB<C 
AMB<C 
AnB<C 
ASBSC 
A>BSC 
AVBSC 
AMBSC 
ASB=C 
A>B=C 
AVB=C 
ANB=C 
ASB2C 
A>B2C 
AVB2C 
AMB2C 
A<B>C 
AzB>C 
ANB>C 
AnB>C 
A<BEC 
AzBEC 
AnBeC 
AwB2C 
A<BYC 
AsBvC 
AzBvC 
A>BYC 
AVBYC 
AMBYC 
AMBYC 
AwBYC 
A<BAC 
ASBAC 
AZBAC 
A>BaC 
AVBAC 
AaBAC 
ANBAC 
ARBAC 
A<BNC 
AsBNC 
AZBNC 
A>BNC 
AVEC 
ANBNC 
AMBMC 
AnBMC 
A<BaC 
ASBeC 
AzBeC 
A>Ba 
AVBRC 
AABaC 
AMBAC 
ARBAC 


PEEEEELTE TEEPE eee ETT t itt ttittt 


(4<B)<a<o 
(428) sa2e 
(ASB) <5 
(A>B) s4>C 
(ASB) sast 
(A>B)<A>e 
(AsB) ast 
(2B) <42c 
(4sB) 2450 
(488) #45C 
(A<B)=A<o 
(A<B)84<o 
(A>B) sA>e 
(458) <4sC 
(42B) 42C 
(A<B)<a<t 
(428) <a2e 
(asB) sas 
(A>B) <A>o 
(4sB)sast 
(A<B)#A<C 
(A<B)=A<C 
(ASB) 450 
(ASB) =ASC 
(AsB)VA<C 
(ASB) VASC 
(A2B) AA2e 
(A>B) AAC 
(AVB)VAVC 
(CAMB) VARC 
(CAMB) AAMC 
(AmB) AARC 
(ASB) AASC 
(ASB) AASC 
(A2B)VARC 
(A>B)VA>C 
(AVB)AAVC 
(CAMB) AARC 
(A¥B) VAMC 
(ARB) VAR 
(A¥B) AAMC 
(AmB) Adee 
(AVB)VAVC 
(ANB) VARC 
(AzB)AA2C 
(A>B) AA>C 
(A<B) VASO 
(ASB)VASC 
(CAMB) VANE 
(AmB) V ARC 
(AVB)AAVE 
(ARB) AAAC 
(AzB)VA2C 
(A>B) Are 
(A<B)AASC 
(ASB) AASC 


- 
- 


Pee ce cece Se CeCe eSeeeSe cree Seen scene: 
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(4vB)<Ave 
(A¥B) <A¥C 
(AaB) <Aac 
(AnB) <del 
(AB) sA0c 
(AnB) <del 
(vB) save 
(4¥B)<A¥C 
(4>B)=4>C 
(4>B)24>C 
(42B)=42C 
(428) #420 
(AnB) sAnC 
(AAB) <0 
(ANB) SAC 
<AVC 
<A¥C 


(AzB)=420 
(A>B) #4>C 
(A>B) => 
(AzB)azc 
(A>B)mA>c 
(A<B)¥A<C 
(ASB) ¥ASC 
(CAMB) WANE 
(AmB) wane 
(AYB)¥AYC 
(ARB) AAC 
(A2B)¥A2C 
(A>B)¥A>C 
(ASB) #A<C 
(ASB) wASC 
(CAMB) ¥ANC 
(AmB) ¥ARC 
(AVB) @AVC 
(AAB) RAAC 
(AVB)¥AVC 
(AAB)¥AAC 
(CAMB) @A¥C 
(AmB) nAel 
(A<B)¥A<C 
(ASB) ¥ASC 
(A2B) 9A2C 
(A>B) mA>C 
(AVB)®AVC 
(CAMB) AAC 
(A¥B)¥ANC 
(AmB) ¥AaC 
(ASB) #A<C 
(ASB) wAsC 
(AzB)¥A2C 
(A>B)¥A>C 
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(4zB)>42c 
(A<B)2A<C 
(A>B)>4>C 
(AsB)245C 
(A>B)24>C 
(4sB)>AsC 
(A2B) za 
(A<B)>A<C 
(AnB)= AAC 
(AaB) #AaC 
(AVB)=AVC 
(AVB)#AVC 
(ASB)245C 
(A>B)>A>C 
(A<B)24<C 
(AzB)>azc 
(A<B)>A<C 
(AzB)zA2C 
(ASB)>AsC 
(A>B)24>C 
(AVB)#AVC 
(AVB)=AVC 
(AAB)8A0C 
(ANB) =AAC 


tripttriitt 


trttt 


t 
q 


ptitirt 


(MB) >A¥C 
(AVE) 2AVC 
(AmB) >AnC 
(AaB) 2400 
(AnB) 2400 
(AnB)> Aa 
(A¥B)2ANC 
(AVB)> AVC 
(AmB) =A8C 
(AmB) #AeC 
(ANB) =A¥C 
(A¥B)#A¥C 
(AaB) 2AAC 
(AmB) > Aa 
(AVB)24VC 
(ANB) > ANC 
(AVB)> AVC 
(AMB)2A¥C 
(AAB)> AAC 
(AmB) 2AnC 
(A¥B) BANC 
(CAMB) = ANC 
(AmB) #A8C 
(AmB) =AeC 


Boolean Functions, 2nd Ed. 


2.8 Interpretations of Reductions on a Boolean Vector Where the 


Result Is Zero Or One 

Let B be any Boolean vector. e 

Reduction 1 ion 

a/B 0 if 0<B; 1 otherwise. 

v/B 1 if 1¢B; 0 otherwise. 

*/B >/B if B is of the form N#.N or Np1; 
otherwise ~2|+/s\1=B (the reverse parity of 
the number of leading 1's in B). 

“/B 2/B if B is of the form N=.N or Np0; 
otherwise 2|+/s\0=B (the parity of the number 
of leading 0's in B). 

</B 1 if B is of the form N=.N; 0 otherwise. 

s/B 0 if B is of the form N#i¥; 1 otherwise. 

=/B ~2|+/0=B (the reverse parity of the number of 
o's in B). 

2/B ~2|+/s\0=B (the reverse parity of the number 
of leading 0's in B). é 

>/B 2|+/a\1=B (the parity of the number of 
leading i's in B). 

#/B 2|+/1=B (the parity of the number of 1's in 
B). 

x/B 0 if 0B; 1 otherwise. 

t/B 1 if 1B; 0 otherwise. 

L/B 0 if 0¢B; 1 otherwise. 

*/B ~2|+/a\0=B (the reverse parity of the number 
of leading 0's in B). 

\/B 1 if B is of the form N=.¥; 0 otherwise. 

1/8 0 if B is of the form W#.N; 1 otherwise. 
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2.9 Similarities between Reduction and Scan of Boolean Vectors 


The table below illustrates notational similarities between 
APL expressions for reduction and scan of Boolean vectors. The 
functions included are all the primitive scalar dyadic relational 
and logical functions. Origin dependent expressions should be 


evaluated in origin 1. 


Simpler statements exist for some of the expressions. For 


instance, 


2/B ++ ~2|+/a\~B ++ 218.1 
>/B ++ 21+/a\B ++ ~21B10 


The form using \ was not chosen to point out the similarities 
with the expressions illustrating other reductions and scan. 

Also, *\ is one of the objects being illustrated and should not be 
used to define other expressions. 
not chosen since it has no simple extension to an expression for a 


scan using that function. 


Reduction 
a/B +> (Bx0)>pB 
V/B ++ (Bx1)spB 
*/B ++ ((B10)<pB)=~21 
+/(Bx10)>1pB 
¥/B ++ ((B11)<pB)=2] 
+/(Bx1)>1pB 
</B +> (Bxr1)=pB 
s/B ++ (B10)#pB 


=/B ++ ~2|+/~B 
2/B +> ~2|+/(B11)>1pB 
>/B +> 214/(B10)>1pB 


#/B ++ 214+/B 
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The other equivalent form was 


Scan 


(B10)>1pB 
(B11)s1pB 


((B10)<1pB)=~21 
+\(B10)>1pB 


((Bx1)<1pB)=21 
+\(Bil)>1pB 


(B11)=1pB 
(Bx0)#1pB 
~2|+\~B 
~21+\(Bi1)>19B 
21+\(B10)>1pB 


214\B 
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2.10 Fast Algorithms for Implementing Relational and Logical 
Scans Other Than #\ and =\ 


Note: 


ReV\B 
Rea\B 
R+2\B 
Re>\B 
Re<\B 
Res\B 
ReM\B 
Rea\B 


A +> (pB)-A 0 M0 + 1 


AsT1+Bi1 
At_14+B10 
ASTI+By1 
‘At_1+B.10 
AtT1+Bi1 
As_1+B10 
As 14Bi1 
Ae 14810 


00000000 


Re(Apo 
Re(Api 
Re(Ap0 
R<(Apt 
R<(Ap0 
Re(Apt 
Re(ApO 
Re(Apt 


0),d4e1 
1),40 
1),4p~214 
0),Ap 214 
0),4p0 
1),Ap1 
1),Ap 214 
0),Ap~21A 


LE A#pB THEN R(A+1}+1 
IE A#pB THEN R[A+1)+0 
IE A#pB THEN R(A+1]}+~214 
IE A#pB THEN RUA+i}« 2/4 


2.11 Bight Different Definitions of Scan, with Examples 


= 
ey 
pete eeeae 


2.12 


<\B <> 
s\B +> 
2\B > 
>\B +> 
=\B ++ 
*\B +> 
V\B <> 
A\B +> 
M\B + 
w\B <> 


m>\~B ++ =\V\B 
w2\~B +> #\A\B 


~#\~B 
~B 
mA\WB 
~V\~B 


«\V +\05 
vif Pe) AI ee ae 
«/ (I-1)¥v | 15 44 12 
(Ge ht Aan ee 
«/ (1-r)4¥ | 15 10 6 
“/9 Irv | 1 3 6 
=/O(I-1)4V | 15 14 12 
«/o (-r)4V | 5 9 12 
«/o(1-r)WV | 15 10° 6 

Identities Involving Scan 
~s\~B 
Saieeg, 


ww\~B «> (2\B)=(V\B)S<\B 
mM\~B <> (>\B)#(A\B)<S\B 
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10 
9 
14 
3 
10 
9 
14 
3 


aN a 

DO aa eae 
5: | Se 22) pasa 

1S. fee! Pye amen 2 
dil. a) RSeterBey 

DB ic Ul ie Pha 
See if By) ABE cas iia 

= ai eee ge Fagg 
1 i 3) 2 2 1 
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2.13 Result: erations Usin ue rs 


The following example illustrates the use of exponentiation 
by a logical vector to change 0's to 1's in an array 


446705305007 
Be 3402304582 
BxBe0 


34123145582 


AB © ATBRBZO 
2 1.75 1) 225 onde 
21.75 0 2.5 4/0025 003-5 
Here exponentiation by a logical vector is used to change 0's to 
1's because 01 produces the desired 0. 4%B+B=0 could also have 
been used in this case. 


The table below shows the most useful manipulations and what 
they produce when BOOLEAN is assigned 0 or 1. 


d Result When Result When 
Operation BOOLEAN=0 = BOOLEAN+1 


AxBOOLEAN C) 4 
AxBOOLEAN 1 4 
BOOLEAN! A 1 A 
BOOLEAN\A A 0 (only for integer 4) 
Ax~BOOLEAN A ° 
A*~BOOLEAN 4 1 
2.14 i he or. men in 


Often when dealing with arrays, we wish to process part of 
the array while leaving the rest untouched. For instance, add 3 
Percent to only those bills over 30 days old: 


BILLS+BILLSx1.03*DAYSOLD>30 


Other times, we may wish to alter the order of the arguments 
of the computation itself based on a conditional array (e.g., 4-B 
or B-A). For functions with an inverse, we may wish to 
conditionally alter the function used in a computation (e.g., A+B 
or 4-8). If a function has an inverse, we can use 1 and one of 
x * | ! on the conditional array to give us the proper answer. 
Or, as shown above, we can use the conditional array to control 
whether the operation is performed. 
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In the table below, C is the conditional array. C controls 
the function used in the first two lines, the order of the 
function's arguments in the next two lines, and whether or not the 
function is performed in the last three lines. 


If C=0 Levee 
Return Return By Using This Expression 


AtB A-B A+B x_1*C 
AxB ASB AXB x7 1x0 
A-B B-A (A-B) xT Ae 
AtB BHA (ASB) x7 180 

A A+B A+BxC 

A AxB AXB*C 

4 ARB AXBRC 
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CHAPTER 3 


SELECTED FUNCTIONS THAT ILLUSTRATE BOOLEAN TECHNIQUES 


This chapter comprises a number of functions that illustrate 


the practical use of the techniques described thus far in the 
publication. 
V Z+é BINARYADDER B;C;D;E 
[1] CALCULATES THE ARITHMETIC SUM (WITH CARRY PROPAGATION) OF 
(2] TWO BINARY VECTORS. 
[3] a GLOBALS: F - WA, Pa. 
[4] a ORIGIN FREE. 
(5] a WRITTEN BY ROBERT A. SMITH, STSC, 20 JULY 74. 
[6] C+-1+(pA)[pB © AtCtA © BHCtB 
[7] DeAaB © E+A=B © C+'#! NA~E 
[8] Z*(E\14(E/D),0)##\C\ "A" Pa~C/D 
v 
v 2<CMB _X 
[1] COMPRESS MULTIPLE BLANKS 
[2] nm ORIGIN FREE 
(3] 8 GLOBALS: (NONE) 
(4] nm WRITTEN BY ROBERT_A. SMITH, 17 JUL 78. 
[5] xe" *,x,' 1 © Zeas as(=x OSS * 9*1)/x 


v 


V Z«DLB X3A3B 

DELETE LEADING BLANKS 

WORKS ON VECTORS, DELETING LEADING BLANKS BETWEEN [TCNL'S, 
OR ON MATRICES (RETURNING A VECTOR) DELETING LEADING 
BLANKS IN EACH ROW. 

ORIGIN FREE. 

GLOBALS: F - Na. 

WRITTEN BY ROBERT A. SMITH, STSC, 28 JAN 74. 

X+,QTCNL,X © A+X=[)TCNL © Z+X=" * © BeA2Z 

Z+14(AV#\B\'#! NA~B/AVZ)/X 


v 
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V Z+DTB X;A 

DELETE TRAILING BLANKS 

WORKS ON VECTORS DELETING TRAILING BLANKS BETWEEN ()TCNL'S, 

OR ON MATRICES (RETURNING A VECTOR) DELETING TRAILING 

BLANKS IN EACH ROW. 

ORIGIN FREE. 

GLOBALS: F - Na, Pa. 

WRITTEN BY ROBERT A. SMITH, STSC, 28 JAN 74. 

X<"14,X,07CNL o At'#' NA X=" * 

Ze(~#\A\'#" Pa A/X=[TCNL)/X 


v 


V ZeaFNTNZ M;A;BL3PT3RM 
[1] a SUPPRESSES TRAILING 0'S IN <M> UP TO AND INCLUDING 
[2] a THE DECIMAL POINT. 

[3] a GLOBALS: F ~ NA, Pa. 

[4] a ORIGIN FREE. 

[5] a WRITTEN BY ROBERT A. SMITH, STSC, 29 MAR 74. 

[6] RM+ 0 1 +pM o M+,M,! 
(7) 
(8) 
{9) 
C10 
(a1 


BL+M=' ' © PT+M=',' 

A+PTV'>' Na BL 

Aste! NA(Me'O.")A#\A\ 8" NA A/PT 
Acw#\A\'#' Pa A/BL 

Z+ 0 1 ¥RMpA\A/M 


V Z+A STREPL B;C3R;DI0 
[1] a REPLACES IN <B> ALL OCCURRENCES OF <1*A> BY <1+A>, 
[2] a GLOBALS: F - Wa. 
{3] ORIGIN 0 DEPENDENT. 
(u] WRITTEN BY ROBERT A. SMITH, STSC, 10 NOV 74. _ 
[5] DI0+0 © At,A © C+B=1pA © Z+C/1pB Oo Re((pB)+(pZ)* 2+pA)p1 
[6] RL (Z+("24pA)xrpZ)e.+1 2+pA]*O © ZeR\B 
£7] Re(tat Na R)SR\C O ZLR/rpR]*(+/R)pi+a 
v 


V R+A SUMSCANBOOLCOMP B;C;DI0 


[1] a COMPUTES A/+\B FOR A LONG BOOLEAN VECTOR <B>. 
[2] a AVOIDS WS FULL PROBLEMS BY NOT CREATING +\B 
[3] n GLOBALS: (NONE) 

[4] ORIGIN 1 DEPENDENT. 

£5] WRITTEN BY ROBERT A. SMITH, STSC, 9 FEB 74, 

[6] a SPEEDUP BY GERRY BAMBERGER, STSC, 8 JAN 78. 


[7] Qro+1 © c+(BvA)/A 
(8) Re(C/1pC)-+\~A/B 
v 
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V R+B SUMSCANBOOLSUB A;C;D 


[1] a COMPUTES (+\B)[A] FOR A LONG BOOLEAN VECTOR <B>. 
[2] a AVOIDS WS FULL PROBLEMS BY NOT CREATING +\B . 
[3] a ASSUMPTIONS: <A> CONTAINS NO DUPLICATES, AND 
C4] oa IS IN ASCENDING ORDER. 
[5] a GLOBALS: (NONE) 
[6] a ORIGIN SENSITIVE. 
{7] a WRITTEN BY ROBERT A. SMITH, STSC, 9 FEB 74, 
a 


SPEEDUP BY GERRY BAMBERGER, STSC, 8 JAN 78. 
[9] C+(pB)p0 © CLA]+1 
[10] De(BvC)/B<C 9 D+(D/.1pD)-~DI0 

{11]  ReD-+\~C/B 


[12] a (FROM ROY SYKES, STSC, 7 JULY 75) 

(13] a IF <A> CONTAINS NO DUPLICATES, BUT IS NOT IN ASCENDING ORDER: 
C14] a [12] ReR(bbA) V 

(15] a IF <A> CONTAINS DUPLICATES, BUT IS IN ASCENDING ORDER: 

(16] a £12] ReR(+\A¥ 14(1t(~D70)tA),A] V 

[17] a IF <A> CONTAINS DUPLICATES, AND IS NOT IN ASCENDING ORDER: 
(18] a [12] R+RE(C/1pC)14] 


° 
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